SwapDatabase (cAlias, nOrder) --> nil:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
Switch to on workarea cAlias, make the "set order to nOrder".
Will be to save all need data for restore previous state of the database
system with function RestDatabase().

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
cAlias: alias for the workarea that will be selected.
nOrder: index order in new selected workarea.

Return value:
~~~~~~~~~~~~~
nil

Example:
~~~~~~~~
    SwapDatabase("Ciselnik",2)
      go top
      while !Eof()
        if RecordOk()
          ProceedRecord()
        endif
        seek anything
      endwhile
    RestDatabase()


Source code is in file Object3.prg